library(stats)
library(base)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)
library(ggfortify)
library(tidyr)
library(magrittr)

## 
## Attaching package: 'magrittr'

## The following object is masked from 'package:tidyr':
## 
##     extract

a=c()
i=1979
while(i<2016){
  a<-append(a, toString(i), after = length(a))
  i=i+1
}
filename1 <- "Unemployment Rate by Year Since 1929 Compared to Inflation and GDP.csv"
data1<-read.csv(filename1)

knitr::kable(data1,format = 'html')

data2<-data1%>%filter(data1$Year%in%a)

knitr::kable(data2,format = 'html')

filename2 <- "who_suicide_statistics.csv"
data3<-read.csv(filename2)

knitr::kable(data3,format='html')